function I_re=DEL_qGT3(I_data,filefolder)
qTH=3;
I_re=[];
for i = unique(I_data)
    Binary=importdata([filefolder,num2str(i),'.out']);
    if(Binary(3,end)>Binary(2,end))
    qmax=max(Binary(:,4)./Binary(:,5));
    qmin=min(Binary(:,4)./Binary(:,5));
    else
        qmax=max(Binary(:,5)./Binary(:,4));
        qmin=min(Binary(:,4)./Binary(:,5));
    end
    if(qmax>qTH)
        I_re=[I_re,i];
    end
end